Ham Radio/Ham Radio CD-ROM (Emerald Software) (1995).ISO/cw/morsecod/zzcode.bas

BASIC Source File | 1985-08-25 | 19KB | 524 lines

10 '******* WRITTEN BY WB4ZNH, CARL HENSON WITH THE HELP OF BILL MANLEY *******
20 '*******            8280 CHESTNUT DRIVE                              *******
30 '*******            JONESBORO, GA. 30236                             *******
40 '*******            [phone]                                   *******
50 '***************************************************************************
60 'I KNOW THE FCC TEST STYLE PRACTICE WILL CREATE SOME RIDICULOUS SITUATIONS.
70 'FOR EXAMPLE, IT WILL HAPPEN THAT THE WEATHER IS HOT AND HUMID BUT THE TEMP.
80 'WILL BE MINUS 6! OR A 12 YR OLD DOCTOR LICENSED AS NOVICE FOR 10 YRS WITH
90 'AN EXTRA CALL. THE INTENT WAS TO MAKE THE VARIABLES TRULY RANDOM. IF THE
100 'FCC CAN BE RIDICULOUS THEN SO CAN I!  73 AND GOOD DX! CARL
110 '***************************************************************************
120 'PROGRAM MODIFIED BY KW4M, DAVID FENTEM.  THE MOST SIGNIFICANT CHANGES WERE
130 'THE ADDITION OF THE ASCII FILE AND THE COMMONLY USED WORDS ROUTINES.
140 'THE COMMONLY USED WORDS ROUTINE IS INTENDED TO HELP ACHIEVE HIGH SPEED
150 'COPYING ABILITY THROUGH WORD RECOGNITION AS OPPOSED TO CHARACTER
160 'RECOGNITION.
170 '**************************************************************************
180 KEY OFF
190 CLS
200 DEFINT A-Z
210 T = 105:TT = 20'
220 PLAY "MFMLT105O3"'                          ** SET DEFAULT CODE SPEED **
230 DIM C$(90):DIM F$(41):DIM FC$(18):DIM WRD$(250)
240 C$(32) = "P12"'                                       *   *
250 C$(33) = ""
260 C$(34) = ""
270 C$(35) = ""
280 C$(36) = ""
290 C$(37) = ""
300 C$(38) = ""
310 C$(39) = ""
320 C$(40) = ""
330 C$(41) = ""
340 C$(42) = ""
350 C$(43) = ""
360 C$(44) = "L16GP48L16GP48L48GP48L48GP48L16GP48L16GP16"'* , *
370 C$(45) = "L16GP48L48GP48L48GP48L48GP48L16GP16"'       * - *
380 C$(46) = "L48GP48L16GP48L48GP48L16GP48L48GP48L16GP16"'* . *
390 C$(47) = "L16GP48L48GP48L48GP48L16GP48L48GP16"'       * / *
400 C$(48) = "L16GP48L16GP48L16GP48L16GP48L16GP16"'       * 0 *
410 C$(49) = "L48GP48L16GP48L16GP48L16GP48L16GP16"'       * 1 *
420 C$(50) = "L48GP48L48GP48L16GP48L16GP48L16GP16"'       * 2 *
430 C$(51) = "L48GP48L48GP48L48GP48L16GP48L16GP16"'       * 3 *
440 C$(52) = "L48GP48L48GP48L48GP48L48GP48L16GP16"'       * 4 *
450 C$(53) = "L48GP48L48GP48L48GP48L48GP48L48GP16"'       * 5 *
460 C$(54) = "L16GP48L48GP48L48GP48L48GP48L48GP16"'       * 6 *
470 C$(55) = "L16GP48L16GP48L48GP48L48GP48L48GP16"'       * 7 *
480 C$(56) = "L16GP48L16GP48L16GP48L48GP48L48GP16"'       * 8 *
490 C$(57) = "L16GP48L16GP48L16GP48L16GP48L48GP16"'       * 9 *
500 C$(58) = ""
510 C$(59) = ""
520 C$(60) = ""
530 C$(61) = ""
540 C$(62) = ""
550 C$(63) = "L48GP48L48GP48L16GP48L16GP48L48GP48L48GP16"'* ? *
560 C$(64) = ""
570 C$(65) = "L48GP48L16GP16"'                            * A *
580 C$(66) = "L16GP48L48GP48L48GP48L48GP16"'              * B *
590 C$(67) = "L16GP48L48GP48L16GP48L48GP16"'              * C *
600 C$(68) = "L16GP48L48GP48L48GP16"'                     * D *
610 C$(69) = "L48GP16"'                                   * E *
620 C$(70) = "L48GP48L48GP48L16GP48L48GP16"'              * F *
630 C$(71) = "L16GP48L16GP48L48GP16"'                     * G *
640 C$(72) = "L48GP48L48GP48L48GP48L48GP16"'              * H *
650 C$(73) = "L48GP48L48GP16"'                            * I *
660 C$(74) = "L48GP48L16GP48L16GP48L16GP16"'              * J *
670 C$(75) = "L16GP48L48GP48L16GP16"'                     * K *
680 C$(76) = "L48GP48L16GP48L48GP48L48GP16"'              * L *
690 C$(77) = "L16GP48L16GP16"'                            * M *
700 C$(78) = "L16GP48L48GP16"'                            * N *
710 C$(79) = "L16GP48L16GP48L16GP16"'                     * O *
720 C$(80) = "L48GP48L16GP48L16GP48L48GP16"'              * P *
730 C$(81) = "L16GP48L16GP48L48GP48L16GP16"'              * Q *
740 C$(82) = "L48GP48L16GP48L48GP16"'                     * R *
750 C$(83) = "L48GP48L48GP48L48GP16"'                     * S *
760 C$(84) = "L16GP16"'                                   * T *
770 C$(85) = "L48GP48L48GP48L16GP16"'                     * U *
780 C$(86) = "L48GP48L48GP48L48GP48L16GP16"'              * V *
790 C$(87) = "L48GP48L16GP48L16GP16"'                     * W *
800 C$(88) = "L16GP48L48GP48L48GP48L16GP16"'              * X *
810 C$(89) = "L16GP48L48GP48L16GP48L16GP16"'              * Y *
820 C$(90) = "L16GP48L16GP48L48GP48L48GP16"'              * Z *
830 PY$ = "PRESS ANY KEY"'                       *                  *
840 PR$ = "WHICH CHARACTER?"'                    *                  *
850 CLS:LOCATE 3,24,0:PRINT "MORSE CODE PRACTICE PROGRAM"
860 LOCATE 5,29,0:PRINT "(A)scii File"
870 LOCATE 7,29,0:PRINT "(R)andom Characters"
880 LOCATE 9,29,0:PRINT "(C)ommonly Used Words"
890 LOCATE 11,29,0:PRINT "(Y)our Selection"
900 LOCATE 13,29,0:PRINT "(5) Letter Code Groups"
910 LOCATE 15,29,0:PRINT "(F)CC Test Style"
920 LOCATE 17,29,0:PRINT "(Q)uit Code Practice"
930 LN = 1:CN = 1' LN IS LINE NUMBER, CN IS COLUMN NUMBER
940 GOSUB 1240
950 S$ = INKEY$:IF S$ = "" THEN 950'    **************************
960 IF LEN(S$) > 1 THEN GOSUB 1210:GOTO 950'                     **
970 IF S$ = "A" OR S$ = "a" THEN 2130' **                       **
980 IF S$ = "R" OR S$ = "r" THEN 4830'  **  ROUTE THE INPUT     **
990 IF S$ = "C" OR S$ = "c" THEN 2330'  **                      **
1000 IF S$ = "Y" OR S$ = "y" THEN 1080'   **                      **
1010 IF S$ = "F" OR S$ = "f" THEN 1330'  ** FROM THE KEYBOARD    **
1020 IF S$ = "5" THEN 2230'              **                      **
1030 IF S$ = "Q" OR S$ = "q" THEN CLS:END
1040 GOTO 950'                           **************************
1050 LN = CSRLIN:CN = POS(0)
1060 LOCATE 25,1,0:PRINT "Press F10 to exit";
1070 LOCATE LN,CN,0:RETURN
1080 CLS' ************* YOUR SELECTION ROUTINE *********************
1090 LOCATE 1,1,0:PRINT PY$:GOSUB 1050:GOSUB 1240
1100 ON KEY(10) GOSUB 1300
1110 KEY(10) ON:LOCATE 3,1,0
1120 S$ = INKEY$:IF S$ = "" THEN 1120
1130 IF LEN(S$) > 1 THEN GOSUB 1210:GOTO 1120
1140 S = ASC(S$)
1150 IF S > 96 AND S < 123 THEN S = S - 32
1160 IF S < 32 OR S > 90 THEN 1120
1170 IF S > 57 AND S < 63 OR S = 64 THEN 1190
1180 PRINT S$;
1190 PLAY C$(S)
1200 GOTO 1120
1210 S$ = MID$(S$,2,1):S = ASC(S$)'*** SPEED SET SUB-ROUTINE ******************
1220 IF S = 72 THEN T = T + 5:IF T > 255 THEN T = T - 5
1230 IF S = 80 THEN T = T - 5:IF T < 35 THEN T = T + 5
1240 T$ = "T" + STR$(T):PLAY T$:TT = (T/5)-1
1250 LN = CSRLIN:CN = POS(0)
1260 LOCATE 25,29,0:PRINT CHR$(24);" Faster    ";CHR$(25);" Slower     ";
1270 LOCATE 25,52,0:PRINT TT;" WPM";
1280 LOCATE LN,CN,0
1290 RETURN
1300 RESET' ******SUBROUTINE TO START AGAIN*************
1310 KEY(10) OFF
1320 RETURN 850
1330 CLS:GOSUB 1050:GOSUB 1240' *** FCC TEST STYLE ***
1340 ON KEY(10) GOSUB 1300
1350 KEY(10) ON:LOCATE 1,1,0
1360 FD$(1) = "":FD$(2) = "":FD$(3) = "":FD$(4) = ""
1370 RESTORE
1380 FOR I = 1 TO 18
1390 FOR II = 1 TO 10
1400 READ G$(II)
1410 NEXT II
1420 B$ = RIGHT$(TIME$,2):V = VAL(B$)
1430 RANDOMIZE V
1440 Y = INT((RND*(10)) + 1)
1450 FC$(I) = G$(Y)
1460 NEXT I
1470 F$(1) = "VVV VVV "
1480 F$(2) = FC$(1)
1490 F$(3) = " DE "
1500 F$(4) = FC$(2)
1510 F$(5) = " RRR AND TNX "
1520 F$(6) = FC$(3)
1530 F$(7) = ", UR RST "
1540 F$(8) = FC$(4)
1550 F$(9) = ", QTH HR IS "
1560 F$(10) = FC$(5)
1570 F$(11) = ", AND NAME IS "
1580 F$(12) = FC$(6)
1590 F$(13) = ".  MY RIG RUNS "
1600 F$(14) = FC$(7)
1610 F$(15) = " WATTS INTO A "
1620 F$(16) = FC$(8)
1630 F$(17) = " UP "
1640 F$(18) = FC$(9)
1650 F$(19) = " FEET.  MY RECEIVER IS "
1660 F$(20) = FC$(10)
1670 F$(21) = " WITH "
1680 F$(22) = FC$(11)
1690 F$(23) = " TUBES.  MY AGE IS "
1700 F$(24) = FC$(12)
1710 F$(25) = " AND LICENSED "
1720 F$(26) = FC$(13)
1730 F$(27) = " YEARS AS "
1740 F$(28) = FC$(14)
1750 F$(29) = " CLASS.  THE WEATHER HERE IS "
1760 F$(30) = FC$(15)
1770 F$(31) = " AND TEMPERATURE IS "
1780 F$(32) = FC$(16)
1790 F$(33) = " DEGREES.  MY OCCUPATION IS "
1800 F$(34) = FC$(17)
1810 F$(35) = ".  I MUST QRT SOON FOR "
1820 F$(36) = FC$(18)
1830 F$(37) = ".  HOW COPY?  "
1840 F$(38) = FC$(1)
1850 F$(39) = " DE "
1860 F$(40) = FC$(2)
1870 F$(41) = " KN AR"
1880 FOR I = 1 TO 11
1890 FD$(1) = FD$(1) + F$(I)
1900 NEXT I
1910 FOR I = 12 TO 21
1920 FD$(2) = FD$(2) + F$(I)
1930 NEXT I
1940 FOR I = 22 TO 31
1950 FD$(3) = FD$(3) + F$(I)
1960 NEXT I
1970 FOR I = 32 TO 41
1980 FD$(4) = FD$(4) + F$(I)
1990 NEXT I
2000 FOR I = 1 TO 4
2010 L = LEN(FD$(I))
2020 FOR Q = 1 TO L
2030 A$ = MID$(FD$(I),Q,1):A = ASC(A$)
2040 PRINT A$;:PLAY C$(A)
2050 S$ = INKEY$:IF LEN(S$) > 1 THEN GOSUB 1210
2060 NEXT Q
2070 NEXT I
2080 LOCATE 17,9,0:PRINT "(F)CC TEST STYLE AGAIN?"
2090 S$ = INKEY$:IF S$ = "" THEN 2090
2100 IF LEN(S$) > 1 THEN GOSUB 1210:GOTO 2090
2110 IF S$ = "F" OR S$ = "f" THEN 1330
2120 GOTO 850
2130 CLS:GOSUB 1050:GOSUB 1240'****** ASCII FILE ROUTINE ********************
2140 ON KEY(10) GOSUB 1300
2150 KEY(10) ON:ON ERROR GOTO 2170
2160 LOCATE 1,1,0
2170 INPUT "Enter file name:   ",CFILE$
2180 LOCATE 3,1,0
2190 OPEN CFILE$ FOR INPUT AS #1
2200 IF EOF(1) THEN CLOSE:GOTO 850
2210 S$ = INKEY$:IF LEN(S$) > 1 THEN GOSUB 1210
2220 MSG$ = INPUT$(1,#1):GOSUB 5040: GOTO 2200
2230 CLS:GOSUB 1050:GOSUB 1240'***** 5 LETTER CODE GROUPS ROUTINE **********
2240 ON KEY(10) GOSUB 1300
2250 KEY(10) ON:LOCATE 1,1,0
2260 I = 0
2270 GOSUB 5150
2280 S$ = INKEY$:IF LEN(S$) > 1 THEN GOSUB 1210
2290 IF Y > 57 AND Y < 63 OR Y = 64 THEN 2270
2300 PRINT CHR$(Y);:PLAY C$(Y):I = I + 1
2310 IF I = 5 THEN I = 0:PRINT " ";:PLAY "P12"
2320 GOTO 2270
2330 CLS'******** COMMONLY USED WORDS ROUTINE ************************
2340 GOSUB 1050:GOSUB 1240:ON KEY(10) GOSUB 1300
2350 KEY(10) ON
2360 WRD$(1) = "A"
2370 WRD$(2) = "NO"
2380 WRD$(3) = "SO"
2390 WRD$(4) = "BE"
2400 WRD$(5) = "AN"
2410 WRD$(6) = "DO"
2420 WRD$(7) = "AS"
2430 WRD$(8) = "IT"
2440 WRD$(9) = "AT"
2450 WRD$(10) = "IF"
2460 WRD$(11) = "HE"
2470 WRD$(12) = "IN"
2480 WRD$(13) = "OR"
2490 WRD$(14) = "IS"
2500 WRD$(15) = "ON"
2510 WRD$(16) = "GO"
2520 WRD$(17) = "OF"
2530 WRD$(18) = "TO"
2540 WRD$(19) = "OH"
2550 WRD$(20) = "BY"
2560 WRD$(21) = "I"
2570 WRD$(22) = "US"
2580 WRD$(23) = "ME"
2590 WRD$(24) = "UP"
2600 WRD$(25) = "WE"
2610 WRD$(26) = "FOR"
2620 WRD$(27) = "CRY"
2630 WRD$(28) = "BUT"
2640 WRD$(29) = "HIM"
2650 WRD$(30) = "ONE"
2660 WRD$(31) = "WAS"
2670 WRD$(32) = "YOU"
2680 WRD$(33) = "NOW"
2690 WRD$(34) = "CAN"
2700 WRD$(35) = "HOW"
2710 WRD$(36) = "ANY"
2720 WRD$(37) = "OUR"
2730 WRD$(38) = "WAY"
2740 WRD$(39) = "ARE"
2750 WRD$(40) = "WHO"
2760 WRD$(41) = "OUT"
2770 WRD$(42) = "AND"
2780 WRD$(43) = "HAS"
2790 WRD$(44) = "USE"
2800 WRD$(45) = "ALL"
2810 WRD$(46) = "GOT"
2820 WRD$(47) = "MAY"
2830 WRD$(48) = "SAY"
2840 WRD$(49) = "AIM"
2850 WRD$(50) = "HAD"
2860 WRD$(51) = "GET"
2870 WRD$(52) = "MAN"
2880 WRD$(53) = "HER"
2890 WRD$(54) = "NOT"
2900 WRD$(55) = "SEE"
2910 WRD$(56) = "SHE"
2920 WRD$(57) = "THE"
2930 WRD$(58) = "HIS"
2940 WRD$(59) = "BEEN"
2950 WRD$(60) = "DOES"
2960 WRD$(61) = "KIND"
2970 WRD$(62) = "HAND"
2980 WRD$(63) = "COME"
2990 WRD$(64) = "GIRL"
3000 WRD$(65) = "VERY"
3010 WRD$(66) = "INTO"
3020 WRD$(67) = "TIME"
3030 WRD$(68) = "OVER"
3040 WRD$(69) = "THIS"
3050 WRD$(70) = "YOUR"
3060 WRD$(71) = "GIVE"
3070 WRD$(72) = "THEM"
3080 WRD$(73) = "WITH"
3090 WRD$(74) = "SUCH"
3100 WRD$(75) = "TELL"
3110 WRD$(76) = "JUST"
3120 WRD$(77) = "LIKE"
3130 WRD$(78) = "HAVE"
3140 WRD$(79) = "WERE"
3150 WRD$(80) = "THAT"
3160 WRD$(81) = "WANT"
3170 WRD$(82) = "THEY"
3180 WRD$(83) = "WELL"
3190 WRD$(84) = "LOOK"
3200 WRD$(85) = "MADE"
3210 WRD$(86) = "WHAT"
3220 WRD$(87) = "WHEN"
3230 WRD$(88) = "FACE"
3240 WRD$(89) = "HERE"
3250 WRD$(90) = "MUCH"
3260 WRD$(91) = "ONLY"
3270 WRD$(92) = "PART"
3280 WRD$(93) = "WILL"
3290 WRD$(94) = "SEEM"
3300 WRD$(95) = "MAKE"
3310 WRD$(96) = "MOST"
3320 WRD$(97) = "SOME"
3330 WRD$(98) = "THAN"
3340 WRD$(99) = "MORE"
3350 WRD$(100) = "THEN"
3360 WRD$(101) = "MUST"
3370 WRD$(102) = "KNOW"
3380 WRD$(103) = "MANY"
3390 WRD$(104) = "FROM"
3400 WRD$(105) = "SAID"
3410 WRD$(106) = "DOWN"
3420 WRD$(107) = "ABOUT"
3430 WRD$(108) = "SHALL"
3440 WRD$(109) = "WHICH"
3450 WRD$(100) = "UNDER"
3460 WRD$(111) = "THEIR"
3470 WRD$(112) = "YOUNG"
3480 WRD$(113) = "WOMEN"
3490 WRD$(114) = "THING"
3500 WRD$(115) = "MIGHT"
3510 WRD$(116) = "THERE"
3520 WRD$(117) = "OFTEN"
3530 WRD$(118) = "THIN"
3540 WRD$(119) = "WOULD"
3550 WRD$(120) = "THESE"
3560 WRD$(121) = "OTHER"
3570 WRD$(122) = "THOSE"
3580 WRD$(123) = "WHERE"
3590 WRD$(124) = "TODAY"
3600 WRD$(125) = "MAYBE"
3610 WRD$(126) = "SHOULD"
3620 WRD$(127) = "MOTHER"
3630 WRD$(128) = "FATHER"
3640 WRD$(129) = "BECAUSE"
3650 WRD$(130) = "PICTURE"
3660 WRD$(131) = "THROUGH"
3670 WRD$(132) = "PROBABLY"
3680 WRD$(133) = "SOMETHING"
3690 WRD$(134) = "AMATEUR"
3700 WRD$(135) = "RADIO"
3710 WRD$(136) = "HAM"
3720 WRD$(137) = "ARRL"
3730 WRD$(138) = "COAX"
3740 WRD$(139) = "DIPOLE"
3750 WRD$(140) = "QUAD"
3760 WRD$(141) = "BEAM"
3770 WRD$(142) = "YAGI"
3780 WRD$(143) = "WINDOM"
3790 WRD$(144) = "VERTICAL"
3800 WRD$(145) = "WIRE"
3810 WRD$(146) = "TEMP"
3820 WRD$(147) = "HOT"
3830 WRD$(148) = "COLD"
3840 WRD$(149) = "CLEAR"
3850 WRD$(150) = "SUNNY"
3860 WRD$(151) = "WET"
3870 WRD$(152) = "DRY"
3880 WRD$(153) = "RAINY"
3890 WRD$(154) = "YAESU"
3900 WRD$(155) = "KENWOOD"
3910 WRD$(156) = "HEATH"
3920 WRD$(157) = "DRAKE"
3930 WRD$(158) = "COLLINS"
3940 WRD$(159) = "TEN TEC"
3950 WRD$(160) = "HOMEBREW"
3960 WRD$(161) = "ICOM"
3970 WRD$(162) = "NOVICE"
3980 WRD$(163) = "TECH"
3990 WRD$(164) = "GENERAL"
4000 WRD$(165) = "ADVANCED"
4010 WRD$(166) = "EXTRA"
4020 WRD$(167) = "SHACK"
4030 WRD$(168) = "CONTEST"
4040 WRD$(169) = "TEST"
4050 WRD$(170) = "LINEAR"
4060 WRD$(171) = "AMP"
4070 WRD$(172) = "TUNER"
4080 WRD$(173) = "PHONE"
4090 WRD$(174) = "TUBE"
4100 WRD$(175) = "KEYER"
4110 WRD$(176) = "POWER"
4120 WRD$(177) = "WATTS"
4130 WRD$(178) = "VOLTS"
4140 WRD$(179) = "NORTH"
4150 WRD$(180) = "SOUTH"
4160 WRD$(181) = "EAST"
4170 WRD$(182) = "WEST"
4180 WRD$(183) = "MILES"
4190 WRD$(184) = "QRL"
4200 WRD$(185) = "QRM"
4210 WRD$(186) = "QRN"
4220 WRD$(187) = "QRP"
4230 WRD$(188) = "QRS"
4240 WRD$(189) = "QRT"
4250 WRD$(190) = "QRU"
4260 WRD$(191) = "QRV"
4270 WRD$(192) = "QRZ"
4280 WRD$(193) = "QSB"
4290 WRD$(194) = "QSK"
4300 WRD$(195) = "QSL"
4310 WRD$(196) = "QSO"
4320 WRD$(197) = "QSY"
4330 WRD$(198) = "QTH"
4340 WRD$(199) = "ABT"
4350 WRD$(200) = "ADR"
4360 WRD$(201) = "AGN"
4370 WRD$(202) = "ANT"
4380 WRD$(213) = "FREQ"
4390 WRD$(214) = "FT"
4400 WRD$(215) = "GE"
4410 WRD$(216) = "GN"
4420 WRD$(217) = "GND"
4430 WRD$(218) = "HI"
4440 WRD$(219) = "HPE"
4450 WRD$(220) = "HR"
4460 WRD$(221) = "HRD"
4470 WRD$(222) = "HW"
4480 WRD$(223) = "COPY"
4490 WRD$(224) = "INFO"
4500 WRD$(225) = "MSG"
4510 WRD$(226) = "OM"
4520 WRD$(227) = "PSE"
4530 WRD$(228) = "PWR"
4540 WRD$(229) = "RCVR"
4550 WRD$(230) = "RIG"
4560 WRD$(231) = "RPT"
4570 WRD$(232) = "RST"
4580 WRD$(233) = "SKED"
4590 WRD$(234) = "SRI"
4600 WRD$(235) = "SSB"
4610 WRD$(236) = "73"
4620 WRD$(237) = "TMW"
4630 WRD$(238) = "TNX"
4640 WRD$(239) = "TX"
4650 WRD$(240) = "UR"
4660 WRD$(241) = "VY"
4670 WRD$(242) = "WUD"
4680 WRD$(243) = "WX"
4690 WRD$(244) = "XMTR"
4700 WRD$(245) = "XTAL"
4710 WRD$(246) = "XCVR"
4720 WRD$(247) = "XYL"
4730 WRD$(248) = "YL"
4740 WRD$(249) = "88"
4750 WRD$(250) = "-"
4760 B$ = RIGHT$(TIME$,2):V=VAL(B$):RANDOMIZE V
4770 LOCATE 1,1,0
4780 B$ = RIGHT$(TIME$,2):V=VAL(B$)
4790 S$ = INKEY$:IF LEN(S$) > 1 THEN GOSUB 1210
4800 W = INT(RND*(32000)):V=V+W:RANDOMIZE V
4810 Y = INT((RND*(250)) + 1)
4820 MSG$ = WRD$(Y) + " ":GOSUB 5040:GOTO 4780
4830 CLS'********** RANDOM CHARACTER ROUTINE  ****************************
4840 GOSUB 1050:GOSUB 1240:I = 0
4850 ON KEY(10) GOSUB 1300
4860 KEY(10) ON
4870 GOSUB 5150
4880 LOCATE 10,13,0:PRINT PR$;
4890 IF Y > 57 AND Y < 63 OR Y = 64 THEN 4870
4900 PLAY C$(Y)
4910 S$ = INKEY$:IF S$ = "" THEN 4910
4920 IF LEN(S$) > 1 THEN GOSUB 1210:GOTO 4910
4930 S = ASC(S$)
4940 LOCATE 17,20,0:PRINT S$;
4950 IF S > 96 AND S < 123 THEN S = S - 32
4960 IF S = Y THEN LOCATE 17,24,0:PRINT "Right On!  ":PLAY "P4":GOTO 4840
4970 LOCATE 17,24,0:PRINT "WRONG!     "
4980 PLAY "T32O0L32CP64T64O2AP64"
4990 T$ = "T" + STR$(T) + "O3P4":PLAY T$
5000 I = I + 1
5010 IF I < 3 THEN 4900
5020 IF I = 3 THEN LOCATE 17,20,0:PRINT CHR$(Y);"   is Correct.";
5030 PLAY C$(Y)+ "P2":GOTO 4840
5040 '*****SUBROUTINE TO SEND A STRING IN MORSE **************************
5050 FOR I=1 TO LEN(MSG$)
5060 S$=MID$(MSG$,I,1):S=ASC(S$)
5070 IF S>96 AND S<123 THEN S=S-32
5080 IF S = 13 THEN PLAY "P12":PRINT:GOTO 5110
5090 IF S<32 OR S>90 THEN 5120
5100 PLAY C$(S):PRINT S$;
5110 S$ = INKEY$:IF LEN(S$) > 1 THEN GOSUB 1210
5120 NEXT I
5130 RETURN
5140 '*************** RANDOMIZE ROUTINE ***************************
5150 X$ = RIGHT$(TIME$,2):X = VAL(X$)
5160 RANDOMIZE X
5170 Y = INT(RND*(46+1)):Y = Y + 44:RETURN
5180 DATA WB1ZLX,WA2HHS,KA3CQZ,KB4FLF,WD5HIG,K6AAS,KL7ZXC,W8ANA,KA9ZD,WB0JOQ,WA1SSH,WB2KRK,KF3G,NP4ZX,WB5HSI,WB6VBB,AL7L,WB8TER,KB9J,W0TRW,GEORGE,BILL,FRED,JOHN,WILBUR,STEVE,HANK,MIKE,KARL,LARRY
5190 DATA 599,589,579,578,479,468,459,339,359,369,"MINOT,ND","JONESBORO,GA","WORCHESTER,MASS","GASTONIA,NC","SITKA,ALASKA","CHARLESTON,WVA","MESA,ARIZ","PORTLAND,OR","INDIANAPOLIS,IND","LUBBOCK,TEX",FRANK,JOEL,HARRY,STANLEY,TED,DONALD,ROBERT,GEOFFREY
5200 DATA MARVIN,PETER,45,100,1500,250,450,75,500,900,60,200,INVERTED VEE,TRAP DOUBLET,GROUND PLANE,VERTICAL,TRIBAND YAGI,DIPOLE,WINDOM,QUAD,DELTA LOOP,LONGWIRE,50,35,20,75,80,40,65,34,27,43,HQ100,R4,SB303,SX101,R390,TS830S,75S3B,R1000,NC183D,FRG7
5210 DATA 10,11,21,6,7,8,9,12,19,18,41,23,36,33,53,68,47,29,14,39,2,3,4,5,6,7,8,9,10,12,NOVICE,TECHNICIAN,GENERAL,ADVANCE,EXTRA,NOVICE,TECHNICIAN,GENERAL,ADVANCE,EXTRA
5220 DATA COOL AND DRY,COLD AND WET,WARM AND WINDY,HOT AND HUMID,COLD AND WINDY,WARM AND DRY,COOL AND WINDY,HOT AND DRY,WARM AND WET,COLD AND DRY,MINUS 6,57,71,23,43,49,65,34,29,MINUS 4,STUDENT,LAWYER,MECHANIC,DENTIST,TEACHER,POLICEMAN
5230 DATA TRUCK DRIVER,CLERK,GOURMET COOK,DOCTOR,BREAKFAST,LUNCH,DINNER,SCHOOL,BED,EXERCISE,LUNCH,DINNER,WORK,BREAKFAST